home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group95b.txt / 000035_icon-group-sender _Tue May 30 16:31:09 1995.msg < prev    next >
Internet Message Format  |  1995-09-18  |  1KB
  1. Received: by cheltenham.cs.arizona.edu; Mon, 5 Jun 1995 08:57:37 MST
  2. To: icon-group-l@cs.arizona.edu
  3. Date: Tue, 30 May 1995 16:31:09 GMT
  4. From: krinke@infbspsk.cs.tu-bs.de (Jens Krinke)
  5. Message-Id: <KRINKE.95May30183109@infbspsk.cs.tu-bs.de>
  6. Organization: TU Braunschweig, FRG
  7. Sender: icon-group-request@cs.arizona.edu
  8. Reply-To: krinke@ips.cs.tu-bs.de (Jens Krinke)
  9. Subject: problem with 'key'
  10. Errors-To: icon-group-errors@cs.arizona.edu
  11.  
  12. Hi, 
  13.  
  14. i have a problem with 'key':  example:
  15.  
  16. record test(foo, bar)
  17.  
  18. procedure main()
  19.     a := table()
  20.     a[test(3,4)] := "a(3,4)"
  21.     a[test(1,2)] := "a(1,2)"
  22.     every write("entry: ", image(!a))
  23.     every write("key: ", image(!key(a)))
  24.     every k := !key(a) do
  25.     write("check: ", image(a[k]))
  26. end
  27.  
  28. results in:
  29.  
  30. entry: "a(1,2)"
  31. entry: "a(3,4)"
  32. key: 1
  33. key: 2
  34. key: 3
  35. key: 4
  36. check: &null
  37. check: &null
  38. check: &null
  39. check: &null
  40.  
  41. what am I doing wrong?  Shouldn't the exact output be:
  42.  
  43. entry: "a(1,2)"
  44. entry: "a(3,4)"
  45. key: record_test...
  46. key: record_test...
  47. check: "a(1,2)"
  48. check: "a(3,4)"
  49.  
  50. Thanks,
  51. Jens
  52.  
  53. -- 
  54. ____________________________________________________________________
  55. Jens Krinke (krinke@ips.cs.tu-bs.de, http://www.cs.tu-bs.de/~krinke)
  56.